home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mditot_1 / mdichild.cab / MDIChild1.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-05-24  |  1.2 KB  |  49 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cMDIChild1"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. '----------------------------------------------------------------------
  15. 'MDIChildTest
  16. 'Copyright (c) Millennium Software AS
  17. 'Redistribution of Code Prohibited
  18. '
  19. 'Finished:    02.03.99 17:59:40
  20. 'Author:      Morten Ladstein (morten@millennium.no)
  21. 'Company:     Millennium Software AS
  22. 'Web:         http://www.millennium.no
  23. 'Description:
  24. 'Comments:
  25. '----------------------------------------------------------------------
  26.  
  27. Option Explicit
  28.  
  29. Dim frm As MDIChild1Form
  30.  
  31. '
  32. Public Sub Show(hWndMDIParent&, Caption$)
  33.   
  34.   Set frm = New MDIChild1Form
  35.   Load frm
  36.   
  37.   With frm
  38.     .mdiChildDll.hWndMDIParent = hWndMDIParent
  39.     .Caption = Caption
  40.     .mdiChildDll.Load
  41.     .mdiChildDll.UserSpecifiedID = "User Specified ID: " & Caption
  42.   End With
  43.   
  44. End Sub
  45.  
  46. Public Sub Destroy()
  47.   Unload frm
  48. End Sub
  49.